home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Borland Plateform / Turbo Prolog 2 / EXAMPL31.PRO < prev    next >
Encoding:
Text File  |  1986-04-24  |  502 b   |  14 lines
  1.                /* Program 31 */
  2. goal
  3.         makewindow(1,7,7,"Source",0,0,20,35),
  4.         write("Which file do you want to copy ?"),
  5.         cursor(3,8),readln(X),
  6.         makewindow(2,7,7,"Destination",0,40,20,35),
  7.         write("What is the name of the new copy ?"),
  8.         cursor(3,8),readln(Y),
  9.         concat(X," ",X1),concat(X1,Y,Z),
  10.         concat("copy ",Z,W),
  11.         makewindow(3,7,7,"Process",14,15,8,50),
  12.         write(" Copying ",X," to ",Y),cursor(2,3),
  13.         system(W).
  14.